home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 13 / Tiger_Disk_013_19xx_Tiger-Crew-Disk_de_Side_B.d64 / wet paint (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  5KB  |  51 lines
  1. 10 rem            wet paint
  2. 11 rem
  3. 12 rem          frank lindsey
  4. 13 rem          bowling green
  5. 14 rem          kentucky, usa
  6. 15 rem          (502)781-3117
  7. 16 rem
  8. 17 rem let's hear it for free software!
  9. 18 rem
  10. 19 rem let's also hear it for making a
  11. 20 rem buck. watch for my other commer-
  12. 21 rem cially available programs.
  13. 22 rem
  14. 80 print"[147][159][142]"
  15. 90 poke53280,0:poke53281,0
  16. 100 printspc(11)"[213][201]  [213][201] [213][192][192][201] [213][192][192][192][192][201]
  17. 110 [153][166]11)"(NULL)(NULL)  (NULL)(NULL) (NULL)(NULL)tan(NULL) mid$tanright$(NULL)tan(NULL)
  18. 120 printspc(11)"[221][221][213][201][221][221] [221][202][201]    [221][221]
  19. 130 [153][166]11)"(NULL)mid$(NULL)mid$(NULL)(NULL) (NULL)(NULL)(NULL)    (NULL)(NULL)
  20. 140 printspc(11)"[221] [213][201] [221] [221][202][192][201]   [221][221]
  21. 150 [153][166]11)"mid$tan(NULL)mid$tan(NULL) mid$tantan(NULL)   mid$(NULL)
  22. 160 printspc(7)"[213][192][192][201] [213][192][192][201] [213][201] [213][192][192][201][213][201] [213][192][192][192][192][201]
  23. 170 [153][166]7)"(NULL)(NULL)right$(NULL) (NULL)(NULL)right$(NULL) (NULL)(NULL) (NULL)(NULL)right$(NULL)(NULL)(NULL) mid$tanright$(NULL)tan(NULL)
  24. 180 printspc(7)"[221][202][203][221] [221][173][189][221] [221][221] [221][221][221][221][221][221]   [221][221]
  25. 190 [153][166]7)"(NULL)(NULL)tan(NULL) (NULL)or^(NULL) (NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)   (NULL)(NULL)
  26. 200 printspc(7)"[221][221]   [221][221][221][221] [221][221] [221][221][221][202][203][221]   [221][221]
  27. 210 [153][166]7)"mid$(NULL)   mid$(NULL)mid$(NULL) mid$(NULL) mid$(NULL)mid$tantan(NULL)   mid$(NULL)
  28. 250 print"by frank lindsey
  29. 260 [153]"instructions (y/n) ?
  30. 300 c=4:k=55302:cv=55329:kr=k+1
  31. 310 k=k+1:ifk=cvthenc=c+1:k=kr:ifc=15thenc=1
  32. 320 forl=80to520step40:pokecl+k+l,c:next
  33. 330 geta$:on1-(a$="n")-2*(a$="y")goto310,2000,1000
  34. 1000 print"[147]congratulations, buddy!
  35. 1010 [153]"glad to have you on the team as the new
  36. 1020 print"assistant painter.  now i'm the boss
  37. 1030 [153]"and you'll do as you're told.  i want
  38. 1040 print"you to paint as much of this white wall
  39. 1050 [153]"green as you can.  my other assistants
  40. 1060 print"are painting it other colors and i've
  41. 1070 [153]"just finished painting around it blue..
  42. 1080 print"yeah, i like things abstract, okay?!?
  43. 1090 [153]"now, smart guy, i'll pay you a penny
  44. 1100 print"for every inch you paint.  but, if you
  45. 1110 [153]"or any of these other guys paint over
  46. 1120 print"any wet paint, i'll blow you up!!!!!"
  47. 1130 print"now use the joystick in port #1 and":print"get busy!!!":print"[163][163][163][163][163][163][163][163][163][163][163]"
  48. 1160 print"(press the fire button to start)"
  49. 1170 if(peek(56321)and16)<>0then1170
  50. 2000 sys3724
  51.